-- @Author: 作者QQ381990860
-- @Date:   2021-11-04 20:46:28
-- @Last Modified by:   作者QQ381990860
-- @Last Modified time: 2022-06-12 19:57:09
-- @Author: 作者QQ381990860
-- @Date:   2021-11-04 20:46:28
-- @Last Modified by:   作者QQ381990860
-- @Last Modified time: 2021-11-04 22:15:59
function 角色处理类:VIP系统打开(user)
    local VIP1=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V1") + 0
    local VIP2=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V2") + 0
    local VIP3=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V3") + 0
    local VIP4=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V4") + 0
    local VIP5=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V5") + 0
    local VIP6=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V6") + 0
    local VIP7=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V7") + 0
    local VIP8=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V8") + 0
    local VIP9=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V9") + 0
    local VIP10=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V10") + 0
    if user.角色.vip == nil then
       user.角色.vip={充值=0,经验=0,等级=0}
    end
    if user.角色.自动抓鬼 == nil then
       user.角色.自动抓鬼={次数=0,开启=false,总计=0}
    end
    if user.角色.VIP月卡 == nil then
       user.角色.VIP月卡={次数=0,领取=0}
    end
    local 发送信息={}
    发送信息.系统累充 = {VIP1=VIP1,VIP2=VIP2,VIP3=VIP3,VIP4=VIP4,VIP5=VIP5,VIP6=VIP6,VIP7=VIP7,VIP8=VIP8,VIP9=VIP9,VIP10=VIP10}
    发送信息.角色累充 = user.角色.vip.充值
    发送信息.VIP等级 = user.角色.vip.等级
    发送信息.VIP领取 = user.角色.vip.经验
    发送信息.VIP月卡 = user.角色.VIP月卡
    发送信息.自动抓鬼 = user.角色.自动抓鬼
    发送数据(user.连接id,200988,发送信息)
end

function 角色处理类:自动抓鬼设置(user)
    local VIP1=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V1") + 0
    local VIP2=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V2") + 0
    local VIP3=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V3") + 0
    local VIP4=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V4") + 0
    local VIP5=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V5") + 0
    local VIP6=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V6") + 0
    local VIP7=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V7") + 0
    local VIP8=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V8") + 0
    local VIP9=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V9") + 0
    local VIP10=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V10") + 0
    if user.角色.vip == nil then
       user.角色.vip={充值=0,经验=0,等级=0}
    end
    if user.角色.自动抓鬼 == nil then
       user.角色.自动抓鬼={次数=0,开启=false,总计=0}
    end
    if user.角色.VIP月卡 == nil then
       user.角色.VIP月卡={次数=0,领取=0}
    end
    if user.角色.自动抓鬼.次数 < 1 then
       发送数据(user.连接id,7,"#y/你没有静态抓鬼次数无法开启")
       return 0
    end
    if user.队伍 ~= 0 and user.队长 == false then
       发送数据(user.连接id, 7, "#Y/只有队长才能开启静态抓鬼")
       return 0
    end
    if user.角色.自动抓鬼.开启 then
        user.角色.自动抓鬼.开启 = false
        发送数据(user.连接id,7,"#y/你已关闭静态抓鬼")
    else
        user.角色.自动抓鬼.开启 = true
        发送数据(user.连接id,7,"#y/你已开启静态抓鬼")
    end
    local 发送信息={}
    发送信息.系统累充 = {VIP1=VIP1,VIP2=VIP2,VIP3=VIP3,VIP4=VIP4,VIP5=VIP5,VIP6=VIP6,VIP7=VIP7,VIP8=VIP8,VIP9=VIP9,VIP10=VIP10}
    发送信息.角色累充 = user.角色.vip.充值
    发送信息.VIP等级 = user.角色.vip.等级
    发送信息.VIP领取 = user.角色.vip.经验
    发送信息.VIP月卡 = user.角色.VIP月卡
    发送信息.自动抓鬼 = user.角色.自动抓鬼
    发送数据(user.连接id,200999,发送信息)
end

function 角色处理类:刷新自动抓鬼数据(user)
    local 发送信息={}
    if user.角色.自动抓鬼 == nil then
       user.角色.自动抓鬼={次数=0,开启=false,总计=0}
    end
    if user.角色.自动抓鬼.次数 < 1 then
       发送数据(user.连接id,7,"#y/您的抓鬼次数已用尽，请充值后再来静态抓鬼")
    end
    发送信息.自动抓鬼 = user.角色.自动抓鬼
    发送数据(user.连接id,201001,发送信息)
end

function 角色处理类:刷新VIP系统(user)
    local VIP1=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V1") + 0
    local VIP2=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V2") + 0
    local VIP3=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V3") + 0
    local VIP4=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V4") + 0
    local VIP5=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V5") + 0
    local VIP6=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V6") + 0
    local VIP7=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V7") + 0
    local VIP8=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V8") + 0
    local VIP9=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V9") + 0
    local VIP10=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V10") + 0
    if user.角色.vip == nil then
       user.角色.vip={充值=0,经验=0,等级=0}
    end
    if user.角色.自动抓鬼 == nil then
       user.角色.自动抓鬼={次数=0,开启=false,总计=0}
    end
    if user.角色.VIP月卡 == nil then
       user.角色.VIP月卡={次数=0,领取=0}
    end
    if user.角色.vip.等级 == 0 and user.角色.vip.充值>=VIP1 then
           user.角色.vip.等级 = 1
    end
    if user.角色.vip.等级 == 1 and user.角色.vip.充值>=VIP2 then
           user.角色.vip.等级 = 2
    end
    if user.角色.vip.等级 == 2 and user.角色.vip.充值>=VIP3 then
           user.角色.vip.等级 = 3
    end
    if user.角色.vip.等级 == 3 and user.角色.vip.充值>=VIP4 then
           user.角色.vip.等级 = 4
    end
    if user.角色.vip.等级 == 4 and user.角色.vip.充值>=VIP5 then
           user.角色.vip.等级 = 5
    end
    if user.角色.vip.等级 == 5 and user.角色.vip.充值>=VIP6 then
           user.角色.vip.等级 = 6
    end
    if user.角色.vip.等级 == 6 and user.角色.vip.充值>=VIP7 then
           user.角色.vip.等级 = 7
    end
    if user.角色.vip.等级 == 7 and user.角色.vip.充值>=VIP8 then
           user.角色.vip.等级 = 8
    end
    if user.角色.vip.等级 == 8 and user.角色.vip.充值>=VIP9 then
           user.角色.vip.等级 = 9
    end
    if user.角色.vip.等级 == 9 and user.角色.vip.充值>=VIP10 then
           user.角色.vip.等级 = 10
    end

    local 发送信息={}
    发送信息.系统累充 = {VIP1=VIP1,VIP2=VIP2,VIP3=VIP3,VIP4=VIP4,VIP5=VIP5,VIP6=VIP6,VIP7=VIP7,VIP8=VIP8,VIP9=VIP9,VIP10=VIP10}
    发送信息.角色累充 = user.角色.vip.充值
    发送信息.VIP等级 = user.角色.vip.等级
    发送信息.VIP领取 = user.角色.vip.经验
    发送信息.VIP月卡 = user.角色.VIP月卡
    发送信息.自动抓鬼 = user.角色.自动抓鬼
    发送数据(user.连接id,200999,发送信息)
end

function 角色处理类:刷新自动抓鬼数据(user)
    local 发送信息={}
    if user.角色.自动抓鬼 == nil then
       user.角色.自动抓鬼={次数=0,开启=false,总计=0}
    end
    if user.角色.自动抓鬼.次数 < 1 then
       发送数据(user.连接id,7,"#y/您的抓鬼次数已用尽，请充值后再来静态抓鬼")
    end
    发送信息.自动抓鬼 = user.角色.自动抓鬼
    发送数据(user.连接id,201001,发送信息)
end

function 角色处理类:VIP月卡领取(user)
    if user.角色.VIP月卡 == nil then
       user.角色.VIP月卡={次数=0,领取=0}
    end
    if user.角色.VIP月卡.次数 == 0 then
       发送数据(user.连接id, 7, "#y/你为开通月卡会员系统无法领取奖励")
       return
    elseif user.角色.VIP月卡.领取==os.date("%d") then
       发送数据(user.连接id, 7, "#y/您今天已经领取过奖励了")
       return
    else
       user.角色.VIP月卡.次数 = user.角色.VIP月卡.次数 - 1
       user.角色.VIP月卡.领取=os.date("%d")
       角色处理类:添加银子(user,20000000,"月卡")
       角色处理类:添加储备(user,40000000,"月卡")
       角色处理类:添加仙玉(user,10000,"月卡")
       user.角色.抽奖 = user.角色.抽奖 + 1
       user.角色.自动抓鬼.次数 = user.角色.自动抓鬼.次数 + 200
       if user.角色.VIP月卡.次数 <= 0 then
        user.角色.VIP月卡.次数 = 0
       end
       发送数据(user.连接id, 7, "#y/你成功领取了今日的月卡奖励")
       角色处理类:刷新VIP系统(user)
   end
end

function 角色处理类:VIP系统领取(user)
    local VIP1=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V1") + 0
    local VIP2=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V2") + 0
    local VIP3=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V3") + 0
    local VIP4=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V4") + 0
    local VIP5=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V5") + 0
    local VIP6=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V6") + 0
    local VIP7=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V7") + 0
    local VIP8=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V8") + 0
    local VIP9=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V9") + 0
    local VIP10=f函数.读配置(ServerDirectory.."自动充值/充值设置.txt", "主要配置", "V10") + 0
    if user.角色.vip == nil then
       user.角色.vip={充值=0,经验=0,等级=0}
    end
    if user.角色.自动抓鬼 == nil then
       user.角色.自动抓鬼={次数=0,开启=false,总计=0}
    end
    if user.角色.VIP月卡 == nil then
       user.角色.VIP月卡={次数=0,领取=0}
    end
    if user.角色.vip.经验 == 0 and user.角色.vip.充值>=VIP1 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"金柳露",nil,nil,20)
           道具处理类:给予道具(user.id,"超级金柳露",nil,nil,10)
           道具处理类:给予道具(user.id,"修炼果",nil,nil,20)
           道具处理类:给予道具(user.id,"坐骑礼包",nil,nil,1)
           user.角色.vip.经验 = 1
        end
    elseif user.角色.vip.经验 == 1 and user.角色.vip.充值>=VIP2 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"神兜兜",nil,nil,30)
           道具处理类:给予道具(user.id,"阵法碎片",nil,nil,50)
           道具处理类:给予道具(user.id,"陨铁",nil,nil,5)
           道具处理类:给予道具(user.id,"修炼果",nil,nil,20)
           user.角色.vip.经验 = 2
        end
    elseif user.角色.vip.经验 == 2 and user.角色.vip.充值>=VIP3 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"锦衣炼化石",nil,nil,50)
           道具处理类:给予道具(user.id,"足迹炼化石",nil,nil,50)
           道具处理类:给予道具(user.id,"光环炼化石",nil,nil,50)
           user.角色.vip.经验 = 3
        end
    elseif user.角色.vip.经验 == 3 and user.角色.vip.充值>=VIP4 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"修炼果",nil,nil,99)
           道具处理类:给予道具(user.id,"精炼之锤(低)",nil,nil,10)
           角色处理类:添加银子(user,300000000,"VIP4")
           角色处理类:添加储备(user,500000000,"VIP4")
           user.角色.vip.经验 = 4
        end
    elseif user.角色.vip.经验 == 4 and user.角色.vip.充值>=VIP5 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"精炼之锤(低)",nil,nil,30)
           道具处理类:给予道具(user.id,"一年魂石",nil,nil,50)
           道具处理类:给予道具(user.id,"培元汤",nil,nil,99)
           user.角色.vip.经验 = 5
        end
    elseif user.角色.vip.经验 == 5 and user.角色.vip.充值>=VIP6 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"培元汤",nil,nil,99)
           道具处理类:给予道具(user.id,"精炼之锤(低)",nil,nil,50)
           道具处理类:给予道具(user.id,"幽魂之水",nil,nil,99)
           user.角色.vip.经验 = 6
        end
    elseif user.角色.vip.经验 == 6 and user.角色.vip.充值>=VIP7 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"锦衣炼化石",nil,nil,99)
           道具处理类:给予道具(user.id,"足迹炼化石",nil,nil,99)
           道具处理类:给予道具(user.id,"光环炼化石",nil,nil,99)
           user.角色.vip.经验 = 7
        end
    elseif user.角色.vip.经验 == 7 and user.角色.vip.充值>=VIP8 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"150级紫装宝盒",nil,nil,5)
           道具处理类:给予道具(user.id,"法宝礼盒")
           道具处理类:给予道具(user.id,"陨铁",nil,nil,30)
           user.角色.vip.经验 = 8
        end
    elseif user.角色.vip.经验 == 8 and user.角色.vip.充值>=VIP9 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           道具处理类:给予道具(user.id,"150级橙装宝盒",nil,nil,2)
           角色处理类:添加银子(user,1000000000,"VIP9")
           道具处理类:给予道具(user.id,"紫金丹",nil,nil,50)
           user.角色.vip.经验 = 9
        end
    elseif user.角色.vip.经验 == 9 and user.角色.vip.充值>=VIP10 then
        if 角色处理类:取可用格子数量(user,"包裹") < 5 then
            发送数据(user.连接id, 7, "#y/请先预留出5个道具空间")
            return true
        else
           角色处理类:添加储备(user,1000000000,"VIP10")
           角色处理类:添加银子(user,2000000000,"VIP10")
           道具处理类:给予道具(user.id,"十年魂石",nil,nil,30)
           user.角色.vip.经验 = 10
        end
    end
    local 发送信息={}
    发送信息.系统累充 = {VIP1=VIP1,VIP2=VIP2,VIP3=VIP3,VIP4=VIP4,VIP5=VIP5,VIP6=VIP6,VIP7=VIP7,VIP8=VIP8,VIP9=VIP9,VIP10=VIP10}
    发送信息.角色累充 = user.角色.vip.充值
    发送信息.VIP等级 = user.角色.vip.等级
    发送信息.VIP领取 = user.角色.vip.经验
    发送信息.自动抓鬼 = user.角色.自动抓鬼
    发送信息.VIP月卡 = user.角色.VIP月卡
    发送数据(user.连接id,201011,发送信息)
end